home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
faq-s.zip
/
FAQLOAD3.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-09
|
6KB
|
270 lines
unit faqload3;
interface
uses Graph,
crt,
BGIDriv,
BGIFont;
procedure mainloader;
implementation
procedure mainloader;
var
key:char;
a:longint;
c,h,g,GraphDriver, GraphMode, Error : integer;
z:boolean;
{************************************************************************************}
{******************************************}
{******************************************}
procedure Abort(Msg : string);
begin
Writeln(Msg, ': ', GraphErrorMsg(GraphResult));
Halt(1);
end;
{******************************************}
{******************************************}
procedure Initialize;
begin
if RegisterBGIdriver(@EGAVGADriverProc) < 0 then
Abort('EGA/VGA');
if RegisterBGIfont(@GothicFontProc) < 0 then
Abort('Gothic');
if RegisterBGIfont(@SansSerifFontProc) < 0 then
Abort('SansSerif');
if RegisterBGIfont(@SmallFontProc) < 0 then
Abort('Small');
if RegisterBGIfont(@TriplexFontProc) < 0 then
Abort('Triplex');
a:=installuserfont('Euro');
GraphDriver := Detect; { autodetect the hardware }
InitGraph(GraphDriver, GraphMode, ''); { activate graphics }
if GraphResult <> grOk then { any errors? }
begin
Writeln('Graphics init error: ', GraphErrorMsg(GraphDriver));
Halt(1);
end;
end;
{******************************************}
{******************************************}
procedure faq;
begin
setcolor(15);
settextstyle(gothicfont,horizdir,2);
moveto(75,160);
outtext('The Firegod''s');
settextstyle(gothicfont,horizdir,8);
moveto(110, 200);
setcolor(9);
Outtext('F');
moveto(111, 201);
Outtext('F');
setcolor(11);
moveto(167,225);
settextstyle(gothicFont,horizdir,4);
outtext('unctional ');
moveto(168,226);
settextstyle(gothicFont,horizdir,4);
outtext('unctional ');
moveto(290, 200);
setcolor(9);
settextstyle(gothicfont,horizdir,8);
outtext('A');
moveto(291, 201);
settextstyle(gothicfont,horizdir,8);
outtext('A');
setcolor(11);
moveto(345,225);
settextstyle(gothicFont,horizdir,4);
outtext('nd ');
moveto(346,226);
settextstyle(gothicFont,horizdir,4);
outtext('nd ');
moveto(390, 200);
setcolor(9);
settextstyle(gothicfont,horizdir,8);
outtext('Q');
moveto(391, 201);
settextstyle(gothicfont,horizdir,8);
outtext('Q');
setcolor(11);
moveto(450,225);
settextstyle(gothicFont,horizdir,4);
outtext('uick');
moveto(451,226);
settextstyle(gothicFont,horizdir,4);
outtext('uick');
end;
{******************************************}
{******************************************}
procedure box;
var a,h:longint;
begin
for a:=1 to 100000 do
putpixel(random(640),random(480),8);
setcolor(8);
rectangle(60,140,545, 320);
setfillstyle(solidfill, 7);
putpixel(59, 139, 0);
floodfill(59, 139, 8);
setcolor(8);
rectangle(60,140,545, 320);
setfillstyle(solidfill, 15);
putpixel(546, 139, 0);
floodfill(546, 139, 8);
setfillstyle(solidfill, 7);
putpixel(59, 139, 0);
floodfill(59, 139, 8);
setfillstyle(solidfill, 7);
putpixel(0, 239, 0);
floodfill(59, 139, 8);
setcolor(0);
line(70,320,566, 320);
delay(20);
line(70,321,566, 321);
delay(20);
line(70,322,566, 322);
delay(20);
line(70,323,566, 323);
delay(20);
line(70,324,566, 324);
delay(20);
line(70,325,566, 325);
delay(20);
line(70,326,566, 326);
delay(20);
line(70,327,566, 327);
delay(20);
line(70,328,566, 328);
delay(20);
line(70,329,566, 329);
delay(20);
line(70,330,566, 330);
delay(20);
line(70,331,566, 331);
delay(20);
line(70,332,566, 332);
delay(20);
line(70,333,566, 333);
delay(20);
line(70,334,566, 334);
delay(20);
line(70,335,566, 335);
delay(20);
line(70,336,566, 336);
delay(20);
line(70,337,566, 337);
delay(20);
line(70,338,566, 338);
delay(20);
line(70,339,566, 339);
delay(20);
line(70,340,566, 340);
delay(20);
line(70,341,566, 341);
delay(20);
line(545,155,545, 325);
delay(20);
line(546,155,546, 325);
delay(20);
line(547,155,547, 325);
delay(20);
line(548,155,548, 325);
delay(20);
line(549,155,549, 325);
delay(20);
line(550,155,550, 325);
delay(20);
line(551,155,551, 325);
delay(20);
line(552,155,552, 325);
delay(20);
line(553,155,553, 325);
delay(20);
line(554,155,554, 325);
delay(20);
line(555,155,555, 325);
delay(20);
line(556,155,556, 325);
delay(20);
line(557,155,557, 325);
delay(20);
line(558,155,558, 325);
delay(20);
line(559,155,559, 325);
delay(20);
line(560,155,560, 325);
delay(20);
line(561,155,561, 325);
delay(20);
line(562,155,562, 325);
delay(20);
line(563,155,563, 325);
delay(20);
line(564,155,564, 325);
delay(20);
line(565,155,565, 325);
delay(20);
line(566,155,566, 325);
delay(20);
setcolor(15);
rectangle(60,140,545, 320);
line(60, 140, 60, 320);
line(60, 140, 545, 140);
faq;
g:=1;
for h:=1 to 6 do
begin
setcolor(0);
settextstyle(triplexfont,horizdir, 4);
moveto(125+g, 400+g);
outtext('Setup/Config Program');
g:=g+1;
end;
setcolor(9);
settextstyle(triplexfont,horizdir, 4);
moveto(125, 400);
outtext('Setup/Config Program');
setcolor(0);
settextstyle(triplexfont, horizdir, 2);
moveto(236, 450);
outtext('Press any Key');
setcolor(0);
settextstyle(triplexfont, horizdir, 2);
moveto(237, 451);
outtext('Press any Key');
end;
{******************************************}
{******************************************}
{************************************************************************************}
Begin
initialize;
cleardevice;
randomize;
box;
key:=readkey;
cleardevice;
restorecrtmode;
end;
begin
End.